240 VTAB 20: PRINT "DO YOU NEED INSTRUCTIONS? ";: GET A$
250 IF A$ = "Y" THEN GOSUB 4000
260 HOME
270 INPUT "COMPANY NAME ";N$
280 INPUT "STREET ADDRESS ";A$
290 INPUT "CITY/STATE/ZIP ";C$
300 INPUT "PHONE NUMBER ";P$
310 INPUT "SLOGAN OR MOTTO ";S$
320 HOME
330 PRINT "TYPE OF BUSINESS..."
340 PRINT : PRINT "1) CARPETS"
350 PRINT "2) EYEGLASSES"
360 PRINT "3) FINANCE"
370 PRINT "4) COMPUTER DEALER"
380 PRINT "5) PROGRAMMER"
390 PRINT "6) MAGAZINE PUBLISHER"
400 PRINT "7) DOCTOR"
410 PRINT "8) SPY (OR SECRET AGENT)"
420 PRINT "9) PUZZLE FREAK"
430 PRINT "10) HORTICULTURIST"
440 PRINT "11) TELEGRAPHER"
450 PRINT "12) CRYPTOLOGIST"
460 PRINT "13) LIBRARIAN"
470 PRINT "14) BOONDOGGLER"
480 PRINT "15) TENNIS SPECTATOR"
490 PRINT "17) VERY TIDY PERSON""
500 PRINT "18) NONE OF THE ABOVE"
510 PRINT : INPUT "SELECT BY NUMBER ";B
520 GOSUB 3010
530 ON B GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2750
999 REM <CTRL-M><CTRL-M>====================<CTRL-M>TRADEMARK DEPARTMENT<CTRL-M>====================<CTRL-J>
1000 FOR X = 2 TO 39: VTAB 6: HTAB X: PRINT CHR$(95); CHR$(48): FOR Z = 1 TO 50: NEXT Z: NEXT X: GOTO 2800
1010 FOR X = 2 TO 39: VTAB 6: HTAB X: PRINT CHR$(95); CHR$(48): FOR Z = 1 TO 50: NEXT Z: NEXT X
1100 L$ = "-OO-": FOR X = 1 TO 40 STEP 5: VTAB 6: HTAB X: PRINT L$: NEXT X: GOTO 2800
1200 FOR X = 1 TO 40: VTAB 6: HTAB X: PRINT CHR$(36): NEXT X: GOTO 2800
1300 L$ = "II /// ": FOR X = 3 TO 37 STEP 7: VTAB 6: HTAB X: PRINT L$: NEXT X: GOTO 2800
1400 L$ = "**ERR": FLASH : FOR X = 1 TO 40 STEP 5: VTAB 6: HTAB X: PRINT L$: NEXT X: NORMAL : GOTO 2800
1500 L$ = CHR$(78) + CHR$(79): SPEED= 50: FOR X = 2 TO 39 STEP 3: VTAB 6: HTAB X: PRINT L$: NEXT X: SPEED= 255: GOTO 2800
1600 L$ = "TAKE 2 ASPIRINS, CALL ME IN THE MORNING": VTAB 22: HTAB 1: PRINT L$: GOTO 2800
1700 SPEED= 200: VTAB 1: HTAB 1: FOR X = 1 TO 960: PRINT CHR$(32);: NEXT X: SPEED= 255: GOTO 2800
1800 FOR X = 1 TO 40 STEP 2: VTAB 6: HTAB X: PRINT CHR$(35): NEXT X: GOTO 2800
1900 FOR X = 3 TO 40 STEP 5: VTAB 7: HTAB X: PRINT CHR$(42): NEXT X: FOR X = 3 TO 40 STEP 5: VTAB 8: HTAB X: PRINT CHR$(33): NEXT X: FOR X = 1 TO 40: VTAB 9: HTAB X: PRINT CHR$(94): NEXT X: GOTO 2800
2000 FOR X = 1 TO 40:R = INT(3 * RND(1)) +1:L$ = CHR$(46)
2010 IF R = 1 THEN L$ = CHR$(45)
2020 IF R = 2 THEN L$ = B$
2030 VTAB 6: HTAB X: PRINT L$: NEXT X: GOTO 2800
2100 FOR X = 1 TO 40:R = INT(26 * RND(1)) +1: VTAB 6: HTAB X: PRINT CHR$(R +64);: NEXT X: GOTO 2800
2200 R = INT(3 * RND(1)) +1:T$ = "SILENCE "
2210 IF R = 1 THEN T$ = " QUIET! "
2220 IF R = 2 THEN T$ = "SHHHHHH "
2230 FOR X = 1 TO 40 STEP 8: VTAB 6: HTAB X: PRINT T$: NEXT X: GOTO 2800
2300 FOR X = 2 TO 40: INVERSE : VTAB 6: HTAB X: PRINT B$: NORMAL : VTAB 6: HTAB X -1: PRINT B$: FOR Z = 1 TO 75: NEXT Z: NEXT X: GOTO 2800
2400 FOR X = 1 TO 40: VTAB 7: HTAB X: PRINT CHR$(46): NEXT X
2410 T$ = CHR$(79): FOR Y = 1 TO 4: FOR X = 2 TO 40: VTAB 6: HTAB X: PRINT T$: VTAB 6: HTAB X -1: PRINT B$: FOR Z = 1 TO 25: NEXT Z: NEXT X: FOR X = 39 TO 1 STEP -1: VTAB 6: HTAB X: PRINT T$;B$: FOR Z = 1 TO 25: NEXT Z: NEXT X: NEXT Y: GOTO 2800
2500 SPEED= 10: FOR X = 40 TO 1 STEP -1: VTAB 6: HTAB X: PRINT CHR$(63): NEXT X: SPEED= 255: GOTO 2800
2600 FOR X = 7 TO 32:R = INT(26 * RND(1)) +1: VTAB 6: HTAB X: PRINT CHR$(R +64): FOR Z = 1 TO 50: NEXT Z: NEXT X: FOR Z = 1 TO 1000: NEXT Z: FOR X = 1 TO 26: POKE 1669 +X,X: FOR Z = 1 TO 75: NEXT Z: NEXT X: GOTO 2800
2700 FOR X = 1 TO 40: VTAB 6: HTAB X: PRINT CHR$(61): NEXT X: GOTO 2800
2800 FOR Z = 1 TO 2000: NEXT Z: VTAB 23: HTAB 1: END
3000 REM <CTRL-M><CTRL-M>====================<CTRL-M>PRINT LETTERHEAD<CTRL-M>====================<CTRL-J>
3010 HOME
3020 W$ = N$: GOSUB 3120:N$ = W$
3030 VTAB 2: HTAB C: PRINT N$
3040 W$ = A$: GOSUB 3120:A$ = W$
3050 VTAB 3: HTAB C: PRINT A$
3060 W$ = C$: GOSUB 3120:C$ = W$
3070 VTAB 4: HTAB C: PRINT C$
3080 W$ = P$: GOSUB 3120:P$ = W$
3090 VTAB 5: HTAB C: PRINT P$
3100 W$ = S$: GOSUB 3120:S$ = W$
3110 VTAB 22: HTAB C -1: PRINT K$;S$;K$
3120 REM <CTRL-M><CTRL-M>====================<CTRL-M>COPY LINE UP<CTRL-M>====================<CTRL-J>
3130 IF RIGHT$(W$,1) = "C" THEN W$ = LEFT$(W$, LEN(W$) -1): GOTO 3170
3140 IF RIGHT$(W$,1) = "L" THEN 3190
3150 IF RIGHT$(W$,1) = "R" THEN 3220
3160 REM <CTRL-M><CTRL-M>====================<CTRL-M>CENTERING<CTRL-M>====================<CTRL-J>
3170 C = (40 - LEN(W$))/2
3180 RETURN
3190 REM <CTRL-M><CTRL-M>====================<CTRL-M>FLUSH LEFT<CTRL-M>====================<CTRL-J>
3200 W$ = LEFT$(W$, LEN(W$) -1)
3210 C = 1: RETURN
3220 REM <CTRL-M><CTRL-M>====================<CTRL-M>FLUSH RIGHT<CTRL-M>====================<CTRL-J>
3230 W$ = LEFT$(W$, LEN(W$) -1)
3240 C = 40 - LEN(W$)
3250 RETURN
4000 REM <CTRL-M><CTRL-M>====================<CTRL-M>INSTRUCTIONS<CTRL-M>====================<CTRL-J>
4010 HOME
4020 PRINT "YOU WILL BE ASKED NAME OF THE COMPANY, ADDRESS AND THINGS LIKE THAT. ANSWER ASYOU WISH ";: INVERSE : PRINT "EXCEPT";: NORMAL : PRINT " WHEN YOU GIVE THE"
4030 PRINT "ANSWER, ADD THE LETTER ";K$;"L";K$;" TO THE END OFTHE LINE IF YOU WISH THE COPY SET"
4040 PRINT "FLUSH LEFT. ADD THE LETTER ";K$;"R";K$;" TO END OF THE LINE IF YOU WISH THE COPY SET"
4050 PRINT "FLUSH RIGHT. IF YOU WISH THE COPY TO BE CENTERED, ADD A ";K$;"C";K$;" AT END OF LINE"
4060 PRINT : PRINT "THEN SELECT OCCUPATION FOR LOGO OR TRADEMARK DESIGN AND THE ";: FLASH : PRINT "ELECTRIC": INVERSE : PRINT "LETTERHEAD MAKER";: NORMAL : PRINT " WILL DO ITS THING."
4070 VTAB 22: PRINT "=== PRESS ANY KEY TO CONTINUE == ";: GET A$: RETURN
5000 REM <CTRL-M><CTRL-M>==========<CTRL-M> END<CTRL-M>==========
